Top 10k strings from ZZZ-UNK-Corewars.z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
5 wpisz c,2
4 g(al),ava=
4 ,value,mode,sign:
3 p(nrtask)=
3 g(bl),bva=
3 czytaj b,b$,value,mode,sign,err:
3 czytaj b,a$,value,mode,sign,err:
2 v(bl+bvb,size),a=
2 v(a+size,size):
2 adr,ilelinii*5
2 ,ilelinii=0
2 ,adr=46301
2 ,a$," ")-1
2 );" ";j$(am+1
1 ~>>>>~~>>>>~~>>>>~~>>>>~~>>>>~
1 wpisz c,nr,value,mode,sign
1 value=-value,sign=-sign
1 v(p(nrtask)+size,size)
1 v(p(nrtask)+cmpflag,size):
1 v(p(nrtask)+1
1 v(bvb-avb,size):
1 v(bva-ava,size):
1 v(bl+bvb-1
1 v(bdecvb-1
1 v(avb+bvb,size):
1 v(ava+bva,size):
1 v(al+avb-1
1 v(al+avb,size),a=
1 v(al+ava,size),a=
1 v(adecvb-1
1 s$(c,i)=k$:
1 s$(c,i)=" ":
1 ruch=ruch+1
1 rozkoduj a
1 ramka x,y,s,w
1 p(nrtask+1
1 p(nrtask)=al:
1 p(nrtask):
1 p(iltask):
1 p(a)>32768
1 p(a)-32768
1 nrtask>iltask
1 nrtask=nrtask+1
1 loc na adres fiz.
1 listdiss a
1 kompiler c,
1 kod=(kod-1
1 j=nrlin,i=1
1 j,i;s$(c,i)
1 iltask=iltask-1
1 iltask=iltask+1
1 i$="DATMOVADDSUBJMPJMZJMNDJNCMPrezSPLEND",j$="#$@<"
1 g(bdecl)+3
1 g(adecl)+3
1 d,value+32768
1 czytaj d,a$,
1 bdecl=bl,bdecvb=bvb,bl=
1 base+a*c,a$:
1 al=loc,bl=loc,a=
1 adres fiz. na +/- wart.
1 adecl=al,adecvb=avb,al=
1 a,b,c,cmpflag
1 a$=s$(a,13
1 a$="",b$=""
1 a$,a,b,c,d
1 Wykorzystano Beta Basic
1 Wojny rdzeniowe
1 Uwagi, pytania i zam_wienia:
1 No such lin
1 No POP dat
1 No END PRO
1 Missing LOO
1 Missing DEF PRO
1 LOOP without D
1 INSTYTUCJE:
1 ERROR=STAT=LINO=::\<
1 DATMOVADDSUBJMPJMZJMNDJNCMPrezSPLENDJ
1 CB\:G\<2D\!
1 ACDEFILMNOPRSTUVX
1 =2G\"E\*K\~
1 ;s$(c): muz 2
1 ;"walki wojownik_w i program do";
1 ;"przez A. K. Dewdneya, po raz";
1 ;"pierwszy prezentowana w";
1 ;"og_lnej oceny si`y wojownika.";
1 ;"monitor i instrukcja obs`ugi)";
1 ;"[----][----][----][----][----]": ramka 0
1 ;"Wojownik:";nrtask;
1 ;"W przygotowaniu program do";
1 ;"Tytu`: ";a$:
1 ;"Tytu`: ";a$
1 ;"Strzalki, SHIFT A, F - ruchy kursora"'"Delete"'"Enter"'"!L - load"'"!S - save"'"!K - kasuj linie"'"!I - wstaw linie"'"!C - kasuj program"'"!P - drukarka"'"!A - asembluj"'"!M - monitor"'"!H - pomoc"'"!V - c informacje"
1 ;"Stan armii:";iltask
1 ;"Society, 5712 Kern Drive,";
1 ;"SCIENTIFIC AMERICAN w 1984 r"
1 ;"Ruch:";ruch;
1 ;"Lipowa 41, 15-424 Bia`ystok";
1 ;"Linii: ";ilelinii'"Wolne: ";maxil-il: ramka 131
1 ;"Jacek Krywult, J. Sliwki 2/12";
1 ;"Huntington Beach CA 92649-4535";
1 ;"ANDRZEJ STASIEWICZ,";
1 ;"??": kom "Zgin\` wojownik":
1 ;"44-100 Gliwice"
1 : rozkoduj a:
1 : ramka 136
1 : ramka 131
1 : listdiss a:
1 : kompiler base+5
1 : kom "Pisz program","!H - pomoc"
1 : kom "B`\d nr 2":
1 : kom "B`\d nr 1":
1 : disass: wydruk: autodec: egze:
1 : clrkod: etykiety:
1 2G\go"]\"E\:t\
1 00:00:04000:00:000
1 -gra opracowana";
1 ,nrlin,ilelinii,err:
1 ,maxil=100
1 ,i$,s$(a,7
1 ,e$(d)=a$+
1 ,assflag=1
1 ,"LSKMAPHICV",k$):
1 ,"+-",a$(a)):
1 +/-a na a z bitem znaku
1 +"Q\#"_\##N#F
1 *size,base=adr+1
1 *h\#wG#s#r
1 );" ";j$(bm+1
1 );" ";j$(bm+1
1 ): kom "Przygotowanie obszaru roboczego"
1 ),bvb=avb:
1 ),bva=ava,avb=
1 ),b$=s$(a,19
1 ),"we wskazywanej linii":
1 ),"START"):
1 #~#N#F_=W(
1 #%),/258;>ADGKNSVY
1 "Nazwa programu: ";a$:
1 "Lokacja? ";a:
1 "K\#"Y\*=\
1 wpisz c,1
1 rozkoduj loc
1 kom "Wydruk programu"
1 kom "Wojownik CORE WARS z ta%my!": muz 7
1 kom "Wojownik CORE WARS na ta%m{!": muz 7
1 kom "Naprawd{ chcesz skasowa& ten","program? (T-tak)":
1 kom "Naci%nij cokolwiek": muz 1
1 kom "Kompilacja zako|czona","Save kompilat? (T-tak)": muz 1
1 kom "Jeszcze jedno nagranie? (T-tak)": muz 1
1 kom "E - edytor, D - dekoder","Cokolwiek - %ledzenie wojownika":
1 kom "Brak miejsca na lini{","Naci%nij cokolwiek":
1 kom "B`\d nr "+
1 kom "B`\d fatalny - zgin{`a armia ...","Cokolwiek - edytor":muz 1
1 Sekcja Polska Core Wars";
1 International Core Wars";
1 (edytor, assembler,";